home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 41 / 041.d81 / snag boot (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  1KB  |  58 lines
  1. 10 poke53280,.
  2. 11 poke53281,.
  3. 15 :
  4. 25 print"[147]"
  5. 35 print"            [158]L O A[160]D S T A[160]R"
  6. 45 print"            [152][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  7. 55 print
  8. 65 print"               [154]Presents"
  9. 75 print
  10. 85 print
  11. 95 print"            [153]               "
  12. 105 print"                           "
  13. 115 print"                S N A G    "
  14. 125 print"                           "
  15. 135 print"                           "
  16. 145 print
  17. 155 print
  18. 165 print"              [159]Written By"
  19. 175 print
  20. 185 print"               Nick Peck"
  21. 195 print
  22. 205 print
  23. 215 print"             [150]Copyright 1987"
  24. 225 print
  25. 235 print
  26. 245 print"         [129][208]ress [211][208][193][195][197] [212]o [195]ontinue"
  27. 255 print
  28. 265 print"";
  29. 266 geta$:ifa$<>" "then 266
  30. 276 print"[147]"
  31. 286 print
  32. 296 print
  33. 306 print
  34. 316 print"             S N A[160]G  Menu"
  35. 326 print"             [152][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  36. 336 print
  37. 346 print"         1[152]) [153]Run SNAG[152]."
  38. 356 print
  39. 366 print
  40. 376 print"         2[152]) [153]Quit to [158]LOADSTAR[152]."
  41. 386 print
  42. 396 print
  43. 406 print"         [154][197]nter [211]election [155](1 [154][207]r 2[155])    "
  44. 416 geta$:ifa$=""then416
  45. 426 ifa$="1" then 456
  46. 436 ifa$="2"then 500
  47. 446 goto 416
  48. 456 print"[147]"chr$(142)"loading ... please wait"
  49. 466 load"snag",8,1
  50. 500 print"[145][156]      [196]o you wish to quit? [152]([217] [156][207]r [206][152])"
  51. 501 geta$:ifa$=""then501
  52. 502 ifa$="y"ora$="[217]"then510
  53. 504 ifa$="n"ora$="[206]"thenprint"[145][145]":goto406
  54. 505 goto 501
  55. 510 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  56. 511 ifer<>63 then print"[147]":end
  57. 512 load"hello connect",8,1
  58.